<script>-- This button will present a pop-up menu of stack names.-- Hold the mouse button down for a few seconds until-- the menu appears. Select one of the choices to-- go to that stack.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--global stackLastput true into useLastif the optionKey is down then put false into useLastif stackLast is empty thenput "1,1,1,1,1,1" into stackListput the rect of me into thePtif item 2 of thePt > 230 then put 230 into item 2 of thePtput "Shows;Songs;Tapes;Stats;Utility" into listput popUp( thePt, list ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( list, ";", choice ) into theStackif theStack is not "Songs" then put "Dead " before theStackset the hilite of me to falsego stack theStackend ifend ifend mouseDown</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>26</left>
<top>50</top>
<right>343</right>
<bottom>68</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>shadow</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>location</name>
<script>on closeFieldput field "location" into field "side location"end closeField</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>31</left>
<top>75</top>
<right>183</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>side A</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>188</left>
<top>75</top>
<right>338</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>side B</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>29</left>
<top>230</top>
<right>254</right>
<bottom>246</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>shadow</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>side location</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>250</left>
<top>217</top>
<right>343</right>
<bottom>231</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>date</name>
<script>on closeFieldconvert field "date" to short dateset name of this card to field "date"end closefield</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>322</left>
<top>231</top>
<right>343</right>
<bottom>245</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>set</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>311</top>
<right>473</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20689</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>-- This button sends you to the Home stackon mouseUpif the commandKey is down thendoHelpexit mouseUpend ifpush this cardlock screengo stack "Dead Utility"playDeadSong "Franklins"go "Home"unlock screen with visual effect iris closeend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>427</left>
<top>107</top>
<right>466</right>
<bottom>141</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>-- This button is used to sort the labels by date and set.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardlock screensort by field "set"sort datetime by field "date"pop cardend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>76</top>
<right>508</right>
<bottom>105</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>-- This button is used to send you to the next card.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--go to next cardend mouseDownon mouseStillDowngo to next cardend mouseStillDown</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>76</top>
<right>444</right>
<bottom>105</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>-- This button is used to send you to the previous cardon mouseDownif the commandKey is down thendoHelpexit mouseDownend if--go to prev cardend mouseDownon mouseStillDowngo to prev cardend mouseStillDown</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>310</top>
<right>505</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1012</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>return</name>
<script>-- This button should send you back from whence you came,-- depending on how you got here, that is... :-}on mouseUpvisual effect iris closepop cardend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>465</left>
<top>259</top>
<right>503</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26884</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Art</name>
<script>-- This button will send you to a card with some Dead graphics,-- and automaticall selct the "selection tool" to grab some with.-- You should be able to click the return button to come right back.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardgo to card "Art" of stack "Dead Utility"if the result is not empty thenput the result into errmsgplay boinganswer errmsgelsetype tab with optionKeychoose select toolend ifend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>302</top>
<right>39</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Convert Fields</name>
<script>-- This secret button is used to convert the side A and-- side B fields from plain to scrolling, and back again.-- This is useful when set list data gets too long and goes-- belof the bottom of the field, which can happen when-- doing cut-and-paste work.on mouseUpif the commandKey is doen thendoHelpexit mouseUpend if--set the lockScreen to trueget the style of field "side A"if it is "scrolling" thenset the style of background field "side A" to transparentset the style of background field "side B" to transparentelseset the style of background field "side A" to scrollingset the style of background field "side B" to scrollingend ifend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>43</top>
<right>460</right>
<bottom>73</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-1</titleWidth>
<icon>-15904</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>-- This button will cause two labels for a show to be-- printed. It will get both labels for ONE show (provided the-- show has two labels on file), regardless of weather you-- are on Set I or Set II when you click it.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--open printing with dialogpush this card--lock screen--show field "Print Shield"if field "set" is 2 thengo previous cardend ifprint card from 16,20 to 330,304go next cardprint card from 16,20 to 330,304close printing--hide field "Print Shield"pop card-- set the lockScreen to falseend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>82</left>
<top>32</top>
<right>289</right>
<bottom>50</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>shadow</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>top title</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>29</left>
<top>216</top>
<right>217</right>
<bottom>230</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>shadow</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>side title</name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>279</left>
<top>231</top>
<right>322</right>
<bottom>245</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>set label</name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>429</left>
<top>268</top>
<right>453</right>
<bottom>292</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Set Button</name>
<script>-- This button will play one of those cool randpom dead tunes...on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--playRandomDeadend mouseUp-- retired this...--on setTune theTuneset the lockScreen to truedomenu "New Button"put the id of card button "New Button" into theIDset the name of card button id theID to theTuneset the showName of card button id theID to falseset the style of card button id theID to transparentput "on mouseUp" & return into theScriptput "playRandomDead" & return after theScriptput "end mouseUp" & return after theScriptset the script of card button id theID to theScriptset the rect of card button id theID to 236,151,276,191end setTune</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>434</left>
<top>148</top>
<right>506</right>
<bottom>170</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go to...</name>
<script>-- This button will prompt for a show date and then go to the-- labels in this stack (if any) for that show...on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--ask "Enter the show date:"if it is empty then exit mouseUpput it into theShowconvert theShow to short dateput findLabelByDate( theShow ) into tempend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>148</top>
<right>427</right>
<bottom>170</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New</name>
<script>-- This button will produce a pair of labels for a show.-- It is fairly automated .. it will prompt for the date,-- and create two cards, for set I and set II. It will-- then search out the show in the Dead Shows stack, read the-- set list, and bring it back to fill in the tape lists.-- The flip is placed after the 6th song of each set and may-- need adjustment, as might the encore. You can handle it!----Option Key---- If the Option Key is used, it will simply create a new card-- and put you in the date field. A short cut to quickly adding-- a new card.on mouseUpif the commandKey is down thendoHelpelse if the optionKey is down thendoMenu "Copy Card"doMenu "Paste Card"click at the loc of field "date"elseset the lockScreen to truesetUpNewCardend ifend mouseUpon setUpNewCardask "Date of the show:"if it is not empty thenif ( findLabelByDate( it ) is true ) thenanswer "Already exists!"exit setUpNewCardend ifconvert it to short dateput it into showDatenewLabels( showDate )end ifend setUpNewCard</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>434</left>
<top>198</top>
<right>506</right>
<bottom>220</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search...</name>
<script>-- This button invokes the Search function. This function-- allows you to enter a partial list of songs and search-- for them, either in exact sequence or in any order, to be-- found either in this stack ("On Tape") to see if you have a-- particular label for the list in question, or it will search-- the shows stack to find a particular show. handy when you-- have a "mystery tape" to identify.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--searchend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>434</left>
<top>173</top>
<right>506</right>
<bottom>195</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find...</name>
<script>-- This button is quick access to the Find command. It will let-- you search for some text anywhere on a card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--doMenu "Find..."end mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>313</top>
<right>440</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>-- This button will send you to a more general help screen.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardplayDead "help"go card "Labels Help" of stack "Dead Utility"end mouseUp</script>
<script>-- This button will switch between wide and narrow labels.-- Something changed in HyperCard 2.0 which apparently prints-- cards approx. 10% narrower than the screen. You may need to-- set the labels to WIDE mode to get a label which fits nicely-- into a casette box. The label should be 4" wide when printed.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--set the cursor to watchlock screenif the short name of me is "Wide" thenmakeWideset the name of me to "Narrow"elsemakeNarrowset the name of me to "Wide"end ifunlock screen with visual effect dissolve fastend mouseUpon makeNarrowset the rect of bg field "hide edge" to 322,28,349,299set the rect of bg field "hide flower" to 292,38,318,63set the rect of bg field "location" to 26,49,318,68set the rect of bg field "side A" to 31,75,169,208set the rect of bg field "side B" to 175,75,316,208--set the rect of bg field "side location" to 29,230,254,246set the rect of bg field "date" to 224,217,317,231set the rect of bg field "set" to 296,231,317,245set the rect of bg field "top title" to 82,32,265,49set the rect of bg field "set label" to 253,231,296,245end makeNarrowon makeWideset the rect of bg field "hide edge" to 317,32,344,295set the rect of bg field "hide flower" to 266,39,292,64set the rect of bg field "location" to 26,50,343,68set the rect of bg field "side A" to 31,75,183,208set the rect of bg field "side B" to 188,75,338,208--set the rect of bg field "side location" to 29,230,254,246set the rect of bg field "date" to 250,217,343,231set the rect of bg field "set" to 322,231,343,245set the rect of bg field "top title" to 82,32,289,50set the rect of bg field "set label" to 279,231,322,245end makeWide-- to use this to capture all the field rect's, create a bg-- field named "capture".----on doCapture-- put empty into bg field "capture"-- repeat with i = 1 to the number of bg fields-- put "set the rect of bg field " & quote & the short name of bg field i¬-- & quote & " to " & the rect of bg field i & return after bg field "capture"-- end repeat--end doCapture</script>
</part>
<content>
<layer>background</layer>
<id>30</id>
<text>Help for bkgnd button "Wide"... This button will switch between wide and narrow labels. Something changed in HyperCard 2.0 which apparently prints cards approx. 10% narrower than the screen. You may need to set the labels to WIDE mode to get a label which fits nicely into a casette box. The label should be 4" wide when printed.</text>
</content>
<content>
<layer>background</layer>
<id>16</id>
<text>Grateful Dead</text>
</content>
<content>
<layer>background</layer>
<id>17</id>
<text>GRATEFUL DEAD</text>
</content>
<content>
<layer>background</layer>
<id>18</id>
<text>Set</text>
</content>
<name>Dead Label</name>
<script>on newCardtabKeyend newCardon miscgo stack "Misc Labels"end miscon newLabels showDateglobal listDate, labelList, listVenue-- put showDate into it-- convert it to dateItems-- put item 1 of it into theYearset the lockScreen to trueif findLabelByDate( showDate ) is true thenanswer "Labels already made!"exit newLabelsend ifset the cursor to 4put empty into Venueput empty into songListpush this cardif showDate is listDate thenput labelList into songListput item 1 of listVenue into Venueput "Quick Labels!"elsego to stack "Dead Shows"put findShowByDate( showDate ) into foundItif foundIt is true thenput item 1 of field "location" into Venueput field "songs" into songListend ifend ifpop cardget field "set"if it is 1 then go next carddoMenu "New Card"put showDate into field "date"put "1" into field setput Venue into field "location"put Venue into field "side location"doMenu "Copy Card"doMenu "Paste Card"put "2" into field "set"go previf songList is not empty thenput 0 into firstSetput 0 into secondSetput 1 into songNumput the number of lines in songList into totalSongs-- do first set labelput "side A" into tapeSiderepeatput line songNum of songList into thisSongadd 1 to songNumif thisSong is empty thenexit repeatend ifput thisSong & return after field tapeSideadd 1 to firstSetif firstSet > 6 thenput "side B" into tapeSideend ifend repeat-- do second set labelgo to next cardput "side A" into tapeSiderepeatput line songNum of songList into thisSongput thisSong & return after field tapeSideadd 1 to songNumadd 1 to secondSetif songNum > totalSongs thenexit repeatend ifif secondSet > 4 thenput "side B" into tapeSideend ifend repeatgo to previous cardend ifclick at the loc of field "location"end newLabelsfunction findLabelByDate theShowDate-- a binary search through the cards.-- this particular version, upon failing to find the show, will-- leave you on the card immediately PREVIOUS to the date-- searched for. This makes it easy to insert new shows into-- the proper place.--put the number of this card into origCardput theShowDate into searchDateconvert searchDate to secondsput the number of cards into endCardput trunc( endCard / 2 ) into targetCardput 1 into begCardset the cursor to 4set the lockScreen to truerepeat forevershowBusygo card targetCardget field "date"if it is theShowDate then return trueconvert it to secondsif it > searchDate thenput the number of this card into endCardelseput the number of this card into begCardend ifif (endCard - begCard) < 2 thengo card begCardget field "date"convert it to secondsif it is searchDate then return truego next cardget field "date"convert it to secondsif it is searchDate then return true-- if we reach here the show does not exist yet-- find the show previous to the one we were looking forrepeat foreverget field "date"convert it to secondsif (it < searchDate) or (the number of this card is 1) then exit repeatgo previous cardend repeatexit repeatend if--put trunc( begCard + ((endCard - begCard) / 2) ) into targetCard-- put begCard & " : " & targetCard & " : " & endCardend repeathide the messagereturn falseend findLabelByDate</script>
